home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / 4CIRC.BAS (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  436 b   |  29 lines
  1. 10  CLS:KEY OFF:SCREEN 1
  2. 20  FOR I=1 TO 66 STEP 2
  3. 30  CIRCLE(106,66),I
  4. 40  CIRCLE(212,66),I
  5. 50  CIRCLE(106,132),I
  6. 60  CIRCLE(212,132),I
  7. 70  NEXT I
  8. 80  FOR I=1 TO 132 STEP 2
  9. 90  CIRCLE(160,100),I,0
  10. 100  IF I>45 THEN 110 ELSE 120
  11. 110  CIRCLE(160,100),I-45
  12. 120  NEXT I
  13. 130  FOR I=1 TO 87 STEP 4
  14. 140  CIRCLE(160,100),I,0
  15. 150  NEXT I
  16. 160  FOR I=1 TO 75 STEP 3
  17. 170  CIRCLE(160,100),I,,,,2/15
  18. 180  CIRCLE(160,100),I,,,,15/2
  19. 190  NEXT I
  20. 200  FOR I=1 TO 15
  21. 210  CIRCLE(160,100),I,0
  22. 220  NEXT I
  23. 230  FOR I=1 TO 5
  24. 240  CIRCLE(160,100),I
  25. 250  NEXT I
  26. 260  FOR I=1 TO 2
  27. 270  CIRCLE(160,100),I,0
  28. 280  NEXT I
  29.